﻿Imports System.Data

Partial Public Class PgeTestDataGrid
    Public Sub New()

        ' Cet appel est requis par le Concepteur Windows Form.
        InitializeComponent()

        ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        Dim t As New DataTable
        t.Columns.Add("toto", GetType(Double))
        t.Columns.Add("titi", GetType(Double))
        t.Columns.Add("tata", GetType(String))
        Dim r As DataRow
        r = t.NewRow
        r("toto") = 3
        r("titi") = 4
        r("tata") = "llll"
        t.Rows.Add(r)
        r = t.NewRow
        r("toto") = 2
        r("titi") = 1
        r("tata") = "ttttt"
        t.Rows.Add(r)
        Me.DataContext = t

    End Sub

    Private Sub TestDataGrid_RowDetailsVisibilityChanged(ByVal sender As System.Object, ByVal e As Microsoft.Windows.Controls.DataGridRowDetailsEventArgs)

    End Sub
End Class
